home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS078A.dsk / VOLUME NAME CHANGER I.bas < prev    next >
BASIC Source File  |  2012-02-16  |  1KB  |  25 lines
  1. 100  REM <CTRL-J><CTRL-J><CTRL-J><CTRL-J>PERSONIFY * D. DUNMIRE<CTRL-J><CTRL-J><CTRL-J>
  2. 110  TEXT : HOME : PRINT "THIS PROGRAM WILL MODIFY THE DOS ON THE DISK. ANY BOOT FROM THIS DISK WILL NOW  READ THE WORD YOU PUT IN.": PRINT 
  3. 120  PRINT "AFTER THE DOS MOD 'DISC VOLUME' WILL BE REPLACED WITH THE 11 CHARACTER INPUT.         <CTRL-J><CTRL-J>BY DARRELL DUNMIRE"
  4. 130  PRINT : PRINT "THE PRESENT DOS READS ";
  5. 140  DATA  160,232,169,183,32,0,189,96
  6. 150  FOR A = 736 TO 743
  7. 160  READ B
  8. 170  POKE A,B: NEXT 
  9. 180  POKE 47083,0
  10. 190 X =  INT(38400/256): POKE 47089,X: POKE 47088,38400 -X *256
  11. 200  POKE 47092,1
  12. 210  POKE 47084,2: POKE 47085,2
  13. 220  CALL 736
  14. 230  FLASH 
  15. 240  FOR A = 38586 TO 38576  STEP  -1: PRINT  CHR$( PEEK(A));: NEXT : PRINT 
  16. 250  NORMAL 
  17. 260  PRINT "YOU MAY CHANGE THE INIT NAME TO WHAT    EVER YOU LIKE. THE ONL RESTRICTION IS A MAX. OF 11 LETTERS."
  18. 300  PRINT "NEW LABEL=(-----------)";
  19. 310 B$ =  CHR$(8)
  20. 320  FOR A = 1 TO 13: PRINT B$;: NEXT 
  21. 330  INPUT B$
  22. 340  IF  LEN(B$) < >11  THEN 300
  23. 350  FOR A = 1 TO 11: POKE 38575 +A, ASC( MID$ (B$,12 -A,1)) +128: NEXT 
  24. 360  POKE 47092,2: CALL 736
  25. 370  PR# 6